home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 01 New Uploads / WSTEXTER.BIN (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  1.8 KB  |  48 lines
  1. 1 ***ERROR***:***ERROR***2,1:***ERROR***55,32768:CLR
  2. 2 ***ERROR***"FILTER":***ERROR***64:***ERROR***64:IFUSR(788)<>52557THEN:***ERROR***2,1,16
  3. 3 ***ERROR***828,.:***ERROR***:PRINT"    Éô";
  4. 4 A$="úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú"
  5. 5 ***ERROR***24,.:PRINTA$+A$+"¥¥"CHR$(148)CHR$(148)"úúÆ";
  6. 6 PRINT" ╫╙ ╘EXTER ....                                               19";
  7. 7 PRINT"91 BY ╫╙OFT !!!  ╞1= ╨RINT   ╞2= RECITE   ╞3= SAVE ";
  8. 8 PRINT"  ╞4= LOAD   ╞5= STASH   ╞6= FETCH   ╞7= END Æ":***ERROR***
  9. 9 GOSUB40:CLR:A$=""
  10. 10 A=1:DC=1:I=.:B1=.:B2=.:SA=.:SE=.:VA=.:VE=.:FA=.:FE=.:P=.:DIMT$(22)
  11. 11 SYS46374:PRINT"ñ¥";:SYS830:A=PEEK(780):A$=CHR$(A):IFA=136THENSYS64738
  12. 12 IFA=34THENPOKE212,1
  13. 13 IFDC=22THENIFPOS(.)=79THENT$(22)=T$(22)+A$:PRINTA$+"";:GOTO27
  14. 14 T$(DC)=T$(DC)+A$:PRINTA$;:IFDC<23THENIFLEN(T$(DC))=80THENDC=DC+1
  15. 15 GOTO11
  16. 16 PRINT" ¥";:IFPOS(.)=.THENDC=DC-1:IFDC=0THENDC=1:GOTO11
  17. 17 IFPOS(.)=.THENIF***ERROR***(.)=2THEN11
  18. 18 IFPOS(.)=.THENIF***ERROR***(.)>2THENIFT$(DC)=""THENPRINT"æ";:GOTO11
  19. 19 IFLEN(T$(DC))=80THEN21
  20. 20 IFPOS(.)=.THENIF***ERROR***(.)>1THEN:***ERROR*** ***ERROR***(.)-1,LEN(T$(DC))
  21. 21 IFLEN(T$(DC))>.THENT$(DC)=LEFT$(T$(DC),LEN(T$(DC))-1):PRINTCHR$(20);
  22. 22 GOTO11
  23. 23 PRINT" ¥";:IFDC=22THEN11
  24. 24 DC=DC+1:PRINT:GOTO11
  25. 25 FORI=1TODC:IFT$(I)<>""THEN:***ERROR***T$(I)
  26. 26 NEXT:GOTO11
  27. 27 POKE144,.:OPEN1,4,1:CLOSE1:IFST=-128THEN29
  28. 28 OPEN1,4,7:FORI=1TODC:PRINT#1,T$(I):NEXT:CLOSE1:GOTO11
  29. 29 ***ERROR***"TURN ON THE PRINTER.":GOSUB30:GOTO27
  30. 30 IFPEEK(56576)=196THEN30
  31. 31 FORI=.TO300:NEXT:RETURN
  32. 32 GOSUB41:***ERROR***"S:TEXT"TO8:***ERROR***"TEXT",B2,USR(55):***ERROR***51,    
  33. 33 GOTO9
  34. 34 ***ERROR***,8:***ERROR***"TEXT",USR(45):GOTO46
  35. 35 ***ERROR***B1,VE,FA:GOSUB40:I=1
  36. 36 IFI<=DCTHENPRINTT$(I):GOSUB38:I=I+1:GOTO36
  37. 37 POKE214,PEEK(214)-1:POKE211,LEN(T$(DC)):A=1:GOTO11
  38. 38 IFLEN(T$(I))=80THENPRINT"æ";
  39. 39 RETURN
  40. 40 ***ERROR***57984,65024,.:***ERROR***53408,55168,32:PRINT"";:RETURN
  41. 41 A$="":SYS46374:VA=USR(45):VE=USR(49):FA=USR(51):FE=USR(47)
  42. 42 B1=USR(55)-FA:B2=FA-(VE-VA):***ERROR***(VE-VA),VA,B2:***ERROR***51,B2:RETURN
  43. 43 GOSUB41:***ERROR***USR(55)-B2,B2,.,1:***ERROR***51,FA:***ERROR***828,USR(55)-B2:GOTO9
  44. 44 IFUSR(828)=.THEN11
  45. 45 ***ERROR***USR(828),USR(45),.,1
  46. 46 SYS46374:***ERROR***47,FE:***ERROR***49,VE:***ERROR***51,FA:***ERROR***53,FA:IFFA<40960THEN35
  47. 47 GOTO9                                                      
  48.